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RMSGET_STM_FMT = Get a stream format record 
PROBE_QRITE = probe user buffers 

RMSSTM_TERM = Locate terminator for stream format 
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RMISTMFEMT STREAM FORMAT SUPPORT 16-SEP-1984 00:57:48 VAX/VMS Macro v04-00 Pa RM 
v04-000 mies Ti 16: £38; 751 CRMS.SRCIRMISTMFMT.MAR; 1 = 3) | vs 
p08 p++ | 
: Facility: RMS32 | 
$00 
00 Abstract: 
000 This module provides stream format 
44 specific processing for the sequential file organization. 
000 | 
000 Environment: 
4 Star processor running Starlet exec. 
$44 Author: Ron Schaefer 32-Jul-1981 
44 Modified By: 
000 v03-013 DASO001 David Solomon 16-Jul-1984 
it Fix accvio due to RM$RELBLK1 “petng called with R4=0 (QAR 581). 
V03-012 JEJ0034 J — Johnson 02-May-1984 


The previous fix alssed the case where there is no 
current BDB (eof on a bucket boundry). In this case 
do not attempt to update the NRP offset. 


v03-011 JEJ0021 J E Johns 02-Apr-1984 
Correctly return RMS$ °RTB e error in the event of no 
press terminator before eof which occurs on a block 
oundry. 


| 

| 

V03-010 RASO278 Ron Schaefer 20-Mar-1984 | 
Side-effect of Ns oe seq $ Leet reroence: eliminate 

call to RMSNEXT_BLK, by Be; Boy RMSNXTBLK1 directly. | 

| 


-v03-009 RasO210 Ron Schaefer 7-Nov-1983 
Fix append problem where remainder of block was 
site when reading to EOF followed by $put. 


V03-008 RASO1 Ron Schaefer 1-Jul-1983 
soe input record checking to propery Ges 


COOOGSOOCOCOSOSOSOOSOSOOSOSOSOOSOSOOOSOSSOOSOSOOSOOOVSOOCSOOSOSOOOOOOOOOOOOOOCOOOOoO 


SOOSCSSCOSOSCSCSSOSOSOSOOSOSSOCOOCOSCSOSOOCOSOSCSOOSOOSOOCOSCOOCOSoOSO 
FWD 9 ODNAWN EWN OOD NAMES WN SO OO NA UE WN OC OD NAUE WN OOONOAULS WOO 


Bete Se Ge Ge Se Ge Se Gee Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Fe Ge Ge Se Ge Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Sete 


C009 0909 00 NINN NNN ND DS DS DS ODS DD DS TTT BS BS BB BB BB AAAI 


with EOF and other ooee conditions. Re-position 
only if there is less than 16 bytes left and this 
is not the Last block. 
v03-007 KBT0418 Keith B. Thompson 30-Nov-1982 
Change ifb$w seumulate to ifb$l_devbufsiz 
v03-006 KBT0149 Keith B. Thompson 20-Aug-1982 
3 Reorganize psects 
0 v03-005 KBT0084 Keith B. Thompson 13-Jul-1982 
4 Clean up psects 
0 V03-004 JwWHO001 Jeffrey W. Hor 29-Jun-1982 
Fix yet another BSBW to JSB broken branch. 
0 v03-003 FeK0od) Todd M. Kat 12-Jan-1982 
: ix a Ppa branch by shaaien a BSBW (to RMSNEXT BLK) 
0a 
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04-000 BreEEi19be $o:a558) LAMSVCRCIAMTSTMGMToMAR:? — P29® (3), 


| 
v03-002 RASO083 Ron Sch 2-Apr-1982 | 
Correct RAS0081 to do tocat "EOF rest for blocks 
between EBK and HBK, since RMSNEXT_BLK does not check. 


v03-001 RASO081 Ron Schaefer 22-Mar-1982 
Correct end-of-file checking Sf ie ee EOF as a std 
terminator and Latch the 
Clean up some other flow Ay 


4 3s 
009 . ; 
00 » 3 
4 89 ; 
00 90 ; 
0000 91; 
0000 3 ; 
484s 95 ; 
000 94; 
0000 95; V02-010 RAS0066 Ron Schaefer 99-Feb-1982 
44 39 3 Drop “Z and ESC as stream file terminators. 
0000 98 ; v02-009 KPLO0002 Peter A eberwires 31-Dec-1981 
0000 99 ; Fix yet another broken branch 
0000 100; 
0000 101; 
0000 106 ; hange the stream terminator set to match RMS-11 and 
500 W332 : make it a global symbol to patch. 
0000 105; V02-007 RASO0046 Ron Schaefer 12-Nov-1981 
44 198 : Fix another broken branch. 
0000 108 ; v02-006 KPLO001 P Lieberwirth 30-0ct-1981 
44 + 4 4 : Fix another broken branch. 
0000 111 ; v02-005 RAS0041 Ron Schaefer 27-Oct-1981 
44 116 ; Fix broken branches caused by root directories. 
0000 114 ; v02-004 RAS0028 Ron Schaefer 20-Aug-1981 
9000 113 : Change FABSC_STM11 to FABSC_STM. a 
0000 117; v02-003 RASO024 Ron Schaefer 17-Aug-1981 AE 
0000 «118; Correct CTRL/Z apece #8 for stream-11 files 
0000 119; used for PPF indirect input. 
0000 120; 
0000 121 ;-- 
0000 122; 
0000 123 


F 
F 
F 
F 
FNE 
IFE 
IFE 
IFE 
IFE 
IFt 
IFt 
IRE 
IRI 
IRI 
IRI 
IRI 
I 

I 

I 

I 

I 


F 
N 
F 
F 
F 
F 
F 
F 
R 
R 
R 
R 
R 
R 
R 
R 
R 
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| 
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| 
v02-008 ene Ron Schaefer 15-Dec-1981 
| 
| 
| 
| 
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04-000 DECLARATIONS Breer abe fo3siet LANG ERC TOMI STMPMT MAR: 1 a 


4 } 5 -SBTTL DECLARATIONS 
8 1 $ 3 
0 1 S ; Include Files: 
00 1 3 
B38 130 
00 131; 
000 1 ¢ ; Macros: 
448 1 3 
000 134 $F ABDEF | 
0000 135 SRABDEF 
$008 1 $ SRMSDEF 
0 1 SIFBDEF 
0000 138 SIRBDEF 
0000 386139 SBDBDEF 
0000 140 SDEVDEF 
0000 141 
0000 146 3 
0000 143 ; Equated Symbols: 
0000 144 ; 
00000000 0000 145 NUL=0 3 null character 
Q000000A 0000 146 LF=10 ; line feed 
0000000B 0000 147 vT=11 3 vertical tab 
0000000C 0000 148 het 3; form feed 
0000000D 0000 149 CR=1 : carr tage return 
00000010 0000 150 DLE=16 ; data Link error 
00000011 0000 £151 DC1=17 ; device control 1 
ole ie dE 0000 13 peesis ; device control 2 
00000013 0000 15 DC3=19 3; device control 3 
00000014 0000 154 DC4=20 ; device control 4 
0000001A 0000 155 CTRLZ=26 : control z 
0000001B 0000 156 ESC=27 3 escape 
0000 157 
B38 158 ; 
00 159 ; Own Storage: 
0000 160 ; ‘ 
0000 161 ; A 32-bit bitmask for each stream format, indexed by character value, 
si 196 ; where each bit is a 1 if that ASCII character is a terminator: 
0000 164 ; STM: cP a FFs VE 
0000 165 ; ? : 
0000 166 ; Character values greater than 31 are eliminated earlier. 
944 167 ; CRLF is handled as a special case. | 
0000 168 ; 
0000 169 RMSSTM_MASK:: | 
00001C00 0000 170 .LONG <<1@LF> + <1aFF> + <laVvT>> 
| 
| 


RMISTMEMT S 
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MT - Get a stream format rec 5-SEP-1984 16:23:51 (CRMS.SRCIRMISTMFMT.MAR; 1 


-SBTTL RMSGET_STM_FMT = Get a stream format record 


++ 
RMSGET_STM_FMT 


this module includes the routine to perform get/find 
record processing for stream formats the sequential file organization. 


Calling sequence: 
bsbw rm$get_stm_fmt ; for stream record formats 
Input Parameters: 


rij impure area addr 
r10 ifab addr 

r9 irab addr 

r8 rab addr 

r7 end of buffer addr 
ri addr of next datum 


Implicit Inputs: 
the contents ~f the various structures. 
Output Parameters: 


r0 status code 

ri updated addr of next datum 
r2-r6 destroyed 

r7 end of buffer addr 


Implicit Outputs: 
the internal structures are updated to reflect the 
results of the get or find. the rab fields 
are updated to ro es gee to the found or gotten 
record (see functional spec for List). 

Completion Codes: 
standard rms. 

Side Effects: 


none 


tt 4 4 MQOOOOOODOOOOCOCOOOO OO OOOWWOWDOWWDOWO VN NNNIN 
WONOU EWN (OO ONAUE WN 9S OB NAW WN 0 OONOAUE WN OC OONOU SEWN 


Be Se Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Be Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Se 
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SUPPORT 16-SEP-1984 0:37:68 AX/VMS Macro V04-00 Page 
- Get a stream format rec 5-SEP-1984 16:23:5 RMS.SRCIRMISTMFMT.MAR; 1 
RMSGET_STM_FMT:: 
: quit if EOF flag is latched for STM format 


BBC WIRBSV_EOF, (R9), 108 ; quit if EOF 
BRW EOF 3; return end-of-file 


RMISTMFMT 
v04-000 


=O 


= >) 
= 
“> 


POPPIN NIMNININININIPONPMOPIPONPIPINIPYNPINPINPIPIPIPIPININININPONIPONoPo Non NnoPonoPonononoporororofrorpofporofprrrnn s- 


5 OF 


6A y. Sy 10$: BBC #IFBSV_PPF_INPUT, (R10),- 

D N pa ; br if not ‘sys$input' 
69 a BBC #IRBSV_PPF_IMAGE, (R9),- 

9 NO ranch if not indirect 


N : b 
BBS #DEVSV-TRM, IFBSL_PRIM_DEV(R10) ,- 
NO_PPF_IN ; branch if terminal 


oa 
aa 


Fix up the buffer pointer so that the SEOD scan will complete 
succesfully for the worst case record. : 

The worst case_is defined as a 257 byte record, so that strategy is to 
use the min(257,actual size to terminator) 


This a" involve re-positioning the buffer so that the current record is 
in the first block. We assume the RMSCONNECT1 has forced MBC>0 so that 
at least 2 blocks are present in each buffer. 


Check if entire record is contained in the buffer. 
Note that the current record is not entirely contained within the buffer 
can only happen with disk files. 


This check assumes that mbc is non-zero for disk files where records cross 
block boundaries. in this case, bdb$b_val_vbns gives the number of valid 
blocks in the buffer, and bdb$b_rel_vbn seg bbe. which block within the 
buffer is currently being processed, in the range of 0 to irb$o_mbc. 


Calculate in r5 the total # of bytes remaining in this and any subsequent 
blocks in the buffer. 


note: if sys$Sinput is from a disk file and records are allowed to 
cross block boundaries, irb$b_mbc must be groster than 0, 
otherwise the processing of a record crossing a block boundary 
will cause rms to loop. it is assumed that rm$connect1 has 
forced mbc > 0. 


If the record is not contained in the current buffer, 

cause the buffer to be read again, but with the current block as the 
first block in the buffer. Since the buffer is a multiple block buffer, 
aoe tae rose will cause the next part of the current record to be 
resident also. 


Se Se Ge Be Ge Se Se Ge Ge Ge Ge Ge Be Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge 


SOOOCOOCSOOSOOSOSOOSOSOSOSOSOS OOOO OSOSOOOSSOSOOOOSOOOOSOOOOOSOOOSOOOSOOSOOSOSSSO -s 
CSOOOCOCOCOCOCOSSOCOSOSOSSSSOOOSOOSOSOSSOOSGSOGOOOOOGOGOOCOCOOCOOSOoOoooeoesescs 1 

PDI at tt tk i tk td ot od = = I I I OQOOODOOOOO WOM 
PMN 3 WW NOON OTD COL EE 

SENN SND DDD AAA AAD TTT BS ES BE EAA IIInonoronononononn so -? 
NAMES AN OS ONAN WIN OOOO NAME WIN OOO NAME WW 0 OO NA UE WWI OC OONOU ES Wn 


fe En. CMPL R1, R7 ; is this the end of the buffer? 
0g te BNEQ 20$ : branch if not - 
Be CLRL R ; flag read required | 
FFDF* 30 BSBW RMSNXTBLK1 : go to next block routine 
58 50 =—E9 BLBC RO, ERRIO ; get out on error 
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RMISTMFMT STREAM FORMAT SUPPORT 1 mi iget sy: 0:30:98 AX/VMS Macro V04-00 Page 7 
v04-000 RMSGET_STM_FMT = Get a stream format rec 5-SEP-1984 16:23:5 RMS.SRCIRMISTMFMT.MAR; 1 (5) 
we. wo ee 4 4 20S: SUBL3 R1, R7, R6 ; compute # bytes Left this block 
54 20 AD 60 8 27 MOVL. IRBSL_CURBDB(R9), R4 =: get current bdb address 
48 AG C 0 SUBB3 BDBS$B-REL_VBN(R4S ,- ; # blocks to end of buffer 
50 49 AG F 1 BDBSB~VAL_VBNS (R45 ,RO ; # blocks in buffer 
50 28 7) ; MOVZBL RO,R ; correct data type 
0 »d7 QO DECL ; adjust for current block 
50 48 AA (C4 § 4 MULL IFBSL_DEVBUFSIZ(R10),RO ; # bytes after current block 
56 20 co B 5 ADDL RO,R6 ; total # valid bytes Left 
50 6 00 QO03E § MOVL R6, RO ; build a descriptor of the memory buff 
54 SO AA 9A 004] : MOVZBL IFBSB_RFMORG(R10), R4 =: get stream format type 
51 3 45 8 PUSHL 3; Save original buffer addr 
01DB 0 Bek 4 BSBW RMSSTM_TERM ; discover if there was a terminator 
51 43 dO 4A 0 MOVL (SP)+, R1 ; restore buff addr ; 
05 50 €9 004D 91 BLBC RO, 30 ; no terminator, so use buffer size 
56 54 00 Bpe 38 MOVL R4, R6 3 use size till terminator 
21. «11 005 93 BRB 40$ ; for the EOD check 
56 00° D1 0055 95 308: CMPL S*#PIO$S_EODSTR, R6 ; are there enough chars within buff? 
1¢ =6.1B «0058 36 BLEQU 40$ ; branch if so 
40 A9 D1 QO5A 9 CMPL IRBSL_NRP_VBN(R9) ,= ; is this the last block? 
74 AA 005D 98 IFBSL_EBKTR10) ; use what there is if so 
15 1& OOSF 99 BGEQU§ 40% ; since there is nothing to re-map 
54 20 A9 B? 0061 00 MOVL IRBSL_CURBDB(R9), R4 3; get current bdb address 
FF98" 30 0065 01 BSBW RMSRECBLK1 ; release buffer 
11 50 4 0068 6s BLBC RO RI 3 get out on error 
48 A9 7D 0068 30 MOVQ §IRBS$L_RP_VBN(R9) ,- 
40 A9 006E 304 IRBSL_NRP_VBN(R9) ; re-read this record 
20 AY = 4 S007 05 CLRL IRB$L-CURBDB(R9) ; make sure this bdb not reused 
FFBA* 31 BRe8 89 BRW RMSGET_BLK_DEV ; start over, re-mapping the buffer 
FF87" 30 0076 308 «0S: BSBW RM$INPUT_SCAN 3 compare periee for 
0079 4 3; match with eod string 
B05 19 : or ‘S$deck"® or ‘$eod' 
10 50 E8 0079 \¢ BLBS RO, NO_PPF_IN 3 continue on success 
05 007C 13 ERRIO: RSB 
007D 14 
007) Hei 
007D 9 ; user buffer errors 
007D 18 ; 
0070 320° 
tA $} ERRUSZ: RMSERR USZ ; user buffer size = 0 
05 O88 ¢ RSB 
a he $68 $3 ERRUBF1:ADDL2 #12, SP ; clear the stack 
0086 $2 ERRUBF: RMSERR UBF 3 no access to user buffer 
05 0088 6 RSB 
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RMISTMFEMT STREAM FORMAT SUPPORT 16-SEP-1984 00:57:48 VAX/VMS Macro v%4-00 Pa 
v04-000 RMSGET_STM_FMT = Get a stream format rec ore EE o8c 98:35:83 RMS.SRCIRMISTMFMT.MAR; 1 = 
C 34+ 
Oat 399; 
8 C Q ; now deal with a regular data record 
C 1 ; currently stream format is always returned in movemode as locate mode 
0 : ¢ 3; is exceedingly complicated. 
0 C 5 NO_PPF_IN: 
t 
08C ; 
45 8 ; get set up for copying the data 
013A 30 G08 40 BSBW CHKEOF ; check for short buffer 
EA 50 €9 OOB8F 41 BLBC RO, ERRIO ; quit if at EOF 
50 57 51 ¢3 0092 X: SUBL3 R1, R7, RO ; source buffer length 
of 5 Bn88 4 BNEQ o$ ; zero, need a new blk 
0120 3 444 44 208: BSBW NXT_BLK 3; get the next block 
DE 50 =—ED 8 9B 45 BLBC RO, ERRIO ¢ quit on error 
50 57 51 C3 OO9E 46 SUBL3 R1, R7, RO ; compute new buffer Length 
F4 «13 Boa $06 EQL og 3 go again to get the eof error 
Boe rH ; now if we are doing STM, we have to ignore leading NULs (yecch) 
50 AA 91—«O0A4 31 $0$:  CMPB  _—sIFBSB_RFMORG(R10),- : STM format? 
0 OA7 § #FABST_STM 
06 12 QOA8 5 BNEQ 40$ : proceed if not 
61 50 00 3 OOAA 354 SKPC #WNUL, RO, (R1) 3 skip over NULS 
—E8 13 OOAE 55 BEQL 20$ ; skipped a whole block 
0080 56 
00B0 57; 
+44 33 ; probe the user buffer and setup the ptrs. 
29 £0 0080 360 408: aps #IRBSV_FIND, (R9), 50$ ; no need for buffers on SFIND 
AB 00 0084 61 4 RABSL_OBF (RB), R3 : get user buffer 
AB 3C 0088 $6 MOVZWL RABS$W_USZ(R8), R2 ; and size 
BF 13 00BC 6 ERRUSZ ; can't be 0 Length 
53 00 tire 64 MOVL R3, RABSL_RBF (R8) ; set up result buffer 
52 8 00C 65 MOVW R2, IRBSW_CSIZ(R9) ; assume we'll fill ‘er up 
25 0 00C6 66 BSB PROBE WRITE 3; probe the user buffer 
50 €9 00C9 67 BLBC RO, ERRUBF 3 quit on error 
OOCC 368 
O00CC 69 ; 
O00CC 70 ; at this point, we have a descripter of the source buffer in RO/R1 
O0O0CC 71 ; and « descriptor of the user's destination buffer in R2/R3. 
OOCC i ; Now copy stream record fragments to the user buffer stopping when 
OOCC 73; a terminator is enccuntered (return RMS$_NORMAL). 
OCC 74; If no terminstor is seen before the end of the user buffer, 
ore g 3; then return RTB and skip to the terminator. 
Occ 5 50s: CLRI. -(SP) ; accumulated record length 
93 8 PUSHL #1 3 assume success status 
0D 7 CLRL -(SP) ; terminator seen flag 
OD 80 MOVEDATA: 
4 1 LBS (SP) pone 1 : quit on terminator seen 
D ¢ SUBL3 RI, R7, R : re-penerate buffer Length 
009 BNEQ ; if there is an 
0DB 4 5$: BSBW NXT_BLK 3 get the next block 
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v04-000 RMSGET_STM_FMT = Get a stream format rec g: “SEP=19 38 98:3 5:8 RMS. SRCIRM 1STM MFMT.MAR; 1 . 
56 8 E9 D 5 BLBC ag : quit on error 
06 69 4 E § BBS eke v 100, (R9), 10$ ; no need for buffers on $FIND 
4 E BSBwW PROBE _QRITE : probe the user buffer 
9 E E 8 BLBC ay ER -ERRU a 3 quit on error 
50 57 C EB 9 10$ SUBL3 RO ; get new source data length 
EA 1 EF 0 BEQL 5$ ; gO again to get the eof error 
54 58 AA 3 F1 91 208 MOVZBL IFBSB REmORGCRIOD, ; et. stream fornet type 
190 0 FS 3 BSBW RMSSTA_TER ; tind a terminator 
56 1 3 a 9 MOVL Ri, R6 ; save the update buffer ptr 
08 AE 23 C FB 94 ADDL2 R4, 8(SP) ; add in the chars seen 
6E 0 4 OFF 95 MOVL RO, (SP) ; and terminator seen flag 
69 29 € 0198 %6 BBS #IRBSV_FIND, (R9),- ; no data copy needed for $F IND 
cc 1 9 MOVEDATA 
S106 399 ; 
3198 400 : now for a real bizarre check! If we are doing STM and the Last 
106 401 ; byte of the old buffer was CR, and the first byte of this buffer 
b10e 186 : is LF, then we must delete the CR and finish with terminator encountered. 
5E 50 £9 0106 404 ° BLBC : no terminator in this buffer 
50 AA 91 0109 405 CMPB TP 88  REMORG(RIO),~ > STM format? 
58 12 010D 407 BNEQ cOoPY ~ 3; not STM 
ee Bede 
3 nope 
oe ae a Eee 
i 3 nope 
28 A8& “5 D1 0119 ret CMPL R3, RABSL_RBF (R8) $ first time thru? 
48 13 0110 41 BEQL copy : no checking then 
O11F «414 IF NORD -1(R3), ERRUBF2,- ; probe the user buffer 
O11F 415 TRbse MODE (R9) 
OD =sOFF oH * Set z18 cure “1(R3), #CR 3 was the Last byte CR? 
: no 
52 B6 0120 418 INCW : anaes the pe from the count 
08 ag D7 O12F 419 DECL 8(SP) 3 and chars seen 
5 11 4 ¢ rh DONE_1: BRB DONE_TERM 3 and quit with terminator seen 
FF4C 051 0134 ? § ERRUBF 2:BRW ERRUBF 1 3; access failure 
827A 8F 30 sf ttt r : ERRIO1: oor 106 M<RMSS_EOFS“XFFFF> ;  P error EOF? 
qu not 
Btz5 426 SSB #IRBSV_EOF, (R9) . - my EOF flag 
45 04 AE E9 014 427 BLBC 4(SP) BONE. TERM : If we have an error already, give 
146 4 g 3 that one back to the user. 
17 69 $3 FO 146 4 BS oinosy fi FIND, (R9), EOF ; always give EOF on $FIND 
2208 62A9 52 A 14a 4 0 SUBW3 Regi RBSH CS1Z( (R95, = ¢: any data? 
OF 13 130 4 ¢ BEQL EOF 3; if so, return the record, no error 
51 56 34 136 4 MOVL 3; restore buffer ptr 
48 A9 «7D «0155 434 MOVG Meee RP_VBN(R9) ,- : set user RFA 
10 A8 158 435 RABSW_ “RFACRB) 
15A 4 § a 3; claim success 
5E OC CO 015D 437 108: ADDL #i2, SP ; clear the stack 
05 199 2 8 : and return 
5E Of 0 161 440 EOF: ADDL2 #12, SP : clear the stack 
FE99" 31 0164 441 BRW RMSGET_EOF : return EOF 


~~ 
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RMISTMFMT STREAM FORMAT SUPPORT 16-SEP-19 7:4 AX/VMS Macro V04 ~00 Page 
v04-000 RMSGET_STM_FMT = Get a stream format rec at 7 98:3 $348 LRMS. SRCIR ISTMFMT. MAR; 1 . 
167 44 
167 108 3 
24 ret 3 Now copy the smaller of the source buffer (upto terminator) or dest buffer 
52 54 B61 18) £08 topy CMPW R4, R2 ; source <> dest? 
OE 1F O16A 44 BLSSU  60$ ; branch if dest if Larger 
6 13 Q16C 448 BEQL 40$ ; data segment = user buffer 
196 449 RMSERR RTB, 4(SP) ; set return status 
63 65 52 #8 174 450 40$ MOVC3 Re (R5), (R3) 3 copy the data 
0B 411 «#0178 451 BRB 80$ 
17A 126 
17A $ 60$ 
4) 36 54 Ad O17A 454 SUBW R4, R2, -(SP) : yy this data portion 
63 65 54 28 O17E 455 MoVC3 R4, (R5), (R3) : t 
52 8€ BO 01 $28 MOVW (SP) é 3 updated dest size 
51 56 BY 4 457 80$ MOVL R6, : restore buffer ptr 
FF47 1 ttt 238 BRW MOVEDATA ; and get another segment 
0188 460 DONE_TERM 
06 69 $3 EO 01868 461 zie FIND, (R9), 10$ ; no record Length for $FIND 
62 Ad 2 A3 O18F rh SUBW3 IRB$W_CSIZ(R 35+ 3; compute and store record length 
22 As 193 46 Raési pie 
SE 04 £0 195 464 10$: ADDL2 a ; discard terminator status 
50 43 D 198 465 MOVQ (SP)+ 3; get return status and total recl 
04 5 —E8 0198 466 BLBS 0, 2 : + STV u oy 2 on success 
Oc AB 51 ~~ =«»00 BARS 467 MOVL R1, RABSL_STV(R8) 3; tell user big at was 
62 A9 51 £42BO OTA 468 20S: MOVW RI, TReSu. CSIZ(R9) 3 mark current record 
51 56 00 O1A6 469 MOVL R 3; update buffer ptr 2 gest terminator 
DO O1A9 470 MOVL RoSL. CURBDB(R9), 3; get current bdb addre 
06 QO1AD 471 BEQL ; Branch if there is no eset bdb 
O1AF $76 SUBL3 BOBSL ggg he tig} ~ 
b1B8 47 R P OFF (R9) z make byte pointer relative 
0185 474 30$: MOVa  IRBSL_R  OBN NCR9) 
nies 475 RABSW_ “RERRO) 3; set rfa 
1BA 476 RSB 3; and return 
016B 477 
0188 of8 : , 
3188 4 3 get the next block in the file and check for logical EOF 
O18 481 NXT_BLK:MOVQ R2, -(SP) 3; save dest buffer desc 
18 re {| CLRL 3 fl lag read require 
OIC 48 BSBW RMSNXTBLK1 3 go to next block routine 
1¢ 484 MOVa (SP)+, R2 ; restore buffer desc 
168 485 BLBC RO, NXT 3 quit on errors 
169 aa? 
1C9 +38 3; check for logical eof occuring in this buffer and correct 
109 489 ; the buffer size appropriately. 
109 490; is the start addr of the record in the NRP_VBN block. 
152 $3) : R7 is the end-of-buffer + 1 address. 
01C9 re tHKEOF : CMPL IRBSL_NRP_VBN(R9) ,- z in the eof block? 
1CC 494 EF BSL “EBKTR10) 
1C 495 BLSSU NXT 3; nope, continue 
1D £38 BGTR EOF 1 ; already past eof 
1D 49 SUBW IRBSW_NRP_OFF(R9) ,- 3 re-compute but ter end at eof 
01D 498 IFBSW_FFBTR10) ,R7 


~o 
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yous000" - Get a stream format rec Basset 1 93:35:98 YaMS SRCIAATSTMERT HAR: 1 sen: (6) 


past FFB means EOF 
make into addr 

set new end addr 
successful 


BLEQU EOF} 
MOVZWL R?,R7 
ADDL2 = R1,R7 
RMSSUC 

RSB 


1 a mate ie set eof flag 


and say eof error 


a a ne oe 


SSB 
RMSERR 
RSB 
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RMISTMFMT zy a gh RMAT SUPPORT 16-SEP-1984 00:57:4 AX/VMS Macro v04-00 Page 
OBE_WRITE = probe user buffers ~SEP=1984 16:23:5 RMS.SROIRM 1S TMF MT .MAR; 1 


-SBTTL PROBE_WRITE = probe user buffers 
; probe the user buffer 
; inputs 


A - user buffer size 
r3 - user buffer addr 


; outputs 
r0 - status 
: cating sequence 
: SBW PROBE _WRITE 


PROBE _WRITE: 
CMPW 


0200 8F 52 861 R2, #512 ; short enough buffer? 
09 «1A BGTRU 10$ 
IFNOWRT &2, (R3), PROBE_FAIL,- 
RBSB_ MODE (R9) 
20.~=s«11 BRB 0$ 
; probe for buffers greater than 512 bytes long 
7E 7D 10$: MOVQ Re -(SP) 3; save byte count and address 
50 FEOO BF 32 CVTWL = #=512, RO ; address computation constant 
20$: IFNOWRT R2, (R3) . PROBE _FAIL,- 
1RBSB MODE (R9) ; branch if not writeable 
53 50 2 SUBL2 3 get address next page 
52 6240 3€ MOVAW Rd) ERO, R2 : adjust count (= 2 pages) 
FO 3614 BGTR ; branch if more to probe 
52 50 C2 SUBL2 RO, R2 : ‘add’ back in 1 page 
EB 14 BGTR 0 ; branch if more to probe 
52 8E& 7D mova (SP)+, R2 ; restore byte count and address 
30$: = 


PROBE _FAIL: 
CLRL :; failure 


QV PULL DULL UDU SUSU SIUSUSV SVS USUSUSUS USUI USSSA USS ISU ISIS 
WN BRE REESE EWWWWWIWN III RPONOPONIPONINDY 2 
DOONAN EWR OODNAUEWN $0 OD NOAUEWN OC ODNOUSWN OO 


ee ee ewww ielololeielololelelelololelelelelelelelelololelolal 


POPIPOPIPIPOPIPOPIMOPIPYPNOPYRY) — — tt tt 
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UPPORT det Bs 9 90:37:68 AX/VMS Macro v04-00 Page 
ocate terminator for stre 5-SEP-1984 16:23:51 (CRMS.SRCIRMISTMFMT.MAR;1 


-SBTTL RMSSTM_TERM = Locate terminator for stream format 


RMISTMEMT 
v04-000 


++ 
RMSSTM_TERM = Locate the terminator in a stream format buffer. 
; This module performs the following functions: 
Locate the terminator (if ony? in a buffer. 
Return a string descriptor of the stream record identified. 
Compute the buffer address after the terminator. 
Include the terminator or not per format type and terminator type. 
Calling Sequence: 
BSBW RMSSTM_TERM 


Input Parameters: 


RO buffer Length 
R1 buffer address 
RG stream format code (uses FAB RFM field codes) 


; Implicit Inputs: 
: none 


; Output Parameters: 


RO status -- true IFF a terminator was found 

R updated buffer address, past record or past all of buffer 
RG Length of stream record identified 

R5 start address of stream record 


: Implicit Outputs: 
none 

; Completion Codes: 

; RO status 
; Side Effects: 

none 


WO OONAUE WN $0 OONAUS WN $$ O OONAULS WI "OWOONOULSW FH 


AM 
™™ 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SL Ab Ab Ab Ab Ab Ab Ab Ab Ab-chbib-chb-dhbdib-dib db db db db ebb Ab Ab Ab Ab Ab edh sh ah sb sb sh sb db sb sb db ah sb dh ab ehh ah dh hb hel 


POPOPIPIPONIPNPIPONPININPONNPNPoNy 
PIPOMINIPNIMNIMNINININNINININPY 
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RMISTMFEMT STREAM FORMAT SUPPORT 16-SEP-1984 00:57:4 AX/VMS Macro v04-00 Page 
v04-000 RMSSTM_TERM = Locate terminator for stre ety 13:35:84 CANS -SRCIRM 1 STMFMT. MAR: 1 . 
601 RMSSTM_TERM:: 
< Ww FP é mova RO, -(SP) ; Save the original buffer desc 
605 ASSUME <FABSC_STM+1> EQ FABSC_STMLF 
6 § ASSUME <FABSC_STMLF+1> EQ FABSC_STMCR 
6 CASE TYPE=B, SRC=R4,- 3; Dispatch based on stream format type 
608 LIMIT=#FABSC_STM,- ; first stream format is STM 
609 DISPLIST=< = 
610 STM,- ; FABSC_STM 
611 STH LF 6 : FABSC_STMLF 
1 STM" CR> FABSC_STMCR 
i 
0 91? ; all other format types have no terminator 
0 617 NO_TERM: 
54 8& 7D 618 MOVQ (SP)+, R4 3; retrieve original buffer 
7. Te. ose g 619 ADDL3 R4, RS, R1 3 point R1 past entire buffer 
50 D4 0 Hd 620 CLRL RO 3; return failure 
05 0238 621 
023C 6 ¢ 
023C 623 STM_LF: 
54 OA 90 O23C 624 MOVB #LF, R4 3 only 1 terminator char 
03 «17 ps7 ° 5 6RB SIMPLE_STM ; makes for an easy scan 
0361 637 STM_CR: 
54 OD 90 41 628 MOVB #CR, R4 ; likewise for this mode 
0244 4 SIMPLE_STM: 
61 50 54 3A 0244 630 LOCC R4, RO, (R1) 3 was the terminator in the buffer? 
E8 13 0248 631 BEQL NO_TERM 3; nope, so return failure 
51 06 024A O36 INCL ; skip over the DFT 
024C o3 FND_TERM: 
6F 50 C2 024C 634 SUBL2 RO, (SP) ; compute recl 
4 8€ 7D O24F 635 Ova (SP)+, R4 5 get original buffer desc 
OS 28 636 RMSSUC ; Tlag success 
05 025 637 $B 
0256 638 
8 56 639; : 
m 3 28 on 3; deal with the more complicated case of RMS-11 stream format 
0256 b4¢ STM: 
54 81 QA 56 64 MOVZBL (R1)+, R4 ; get the next char 
1F O54 59 644 CMPB R4, #31 3: eliminate non-control chars 
06 1A 5C 6645 BGTRU ; 
FD9D CF 4 0 1 646 BBS R4, W*RMSSTM_MASK,- , 
06 026 647 TRM_ 11 ; bit index by char to see if this 
64 : is a terminator 
10$: DECL RO ; count this char ; 
BEQL NO_TERM ; buffer is all gone without a term 
BRB STA 3 try next char 


found one of the STM terminators, check for C 


RLF 
which are deleted, otherwise include the terminator in the data 
note that R1 points past the terminator but RO hasn't counted it yet 


50 (7 64 
CA 13 6 
Ec 11 6 

6 6A 


o 
POEAAASAASAASO 
PUM & 
NOUS WN OOO 
Sete te te te 


~~ 
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RMISTMFMT STREAM FORMAT SUPPORT 16-SEP-1984 00:57:48 VAX/VMS Macro v04-00 Page 15 | RMI 
v04-000 RMSSTM_TERM = Locate terminator for stre gree E1382 16:23:51 CAMS SRCIRMISTMFMT MAR: 1 - (9) v04 
6A 638 TRM_11: 
50 07 6A DECL RO ; include the terminator 
54 OA 91 6C 660 CMPB #LF, RS ; was the terminator LF? 
DB SCl2 gf 661 BNEQ FND_TERM 
tt ee | 
4 o6¢ ; found LF in STM, now drop both if the preceding char is CR. 
71 666 bFT_11: 
2. ww 4 C1 0271 66 ADDL3 #1, RO, R5 3 was LF first char? 
6 55 D1 0275 668 CMPL RS, (SP) 
be 13 0 78 669 BEQL = FNO_TERM ; if so, just ignore it 
FE Al dD (91 7A 670 CMPB #CR, -2(R1) ; is preceding char CR? 
cc is 027 671 BNEQ FND_TERM ; if not, leave it in the data 
50 O¢ C 8 8 ore ADDL2 #2, RO ; discard CR and LF 
C 11 8 67 BRB FND_TERM ; and return success 
0285 674 
0285 675 
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RM1STMFMT STREAM FORMAT SUPPORT 19-SEP-1984 00:57:48 VAX/ Vis Macro 
Psect synopsis “SEP=1984 16:23:51 (CRMS.SRCIRMIST 
pomone nen cna nroana + 
: Psect synopsis ! 
foeeeeceeececeoeeeeecs + 
PSECT name Allocation PSECT No. Attributes 
AB 00000000 <( a 9 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
RMSRMS1 00000285 ( 645.) . €/ tan PIC USR CON REL GBL NOSHR EXE RD 
BS$ 00000000 (¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
tem weer een nee ewe eeces -e eee e + 
H Performance ingicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.07 00:00:00.91 
Command processing 125 00:00:00.74 00:00:03.56 
Pass 313 abs ST 4 00:00:26.63 
Symbol table sort 0 00:00:01.30 00:00:01.69 
Pass 129 00:00:02.37 00:00:08.69 
Symbol table output 11 00:00:00.10 Bp? 88 280 6 
Psect synopsis output 3 00:00:00.03 00:00:00.1 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 613 00:00:14.89 00:00:41.84 


The working set Limit was 1650 pages. . 

59088 bytes (116 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1057 non-local and 26 local symbols. 
675 source lines were read in Pass 1, producing 14 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


ee Y 


! Macro Library statistics : 
$emmmommmeweweeoeoeeeeeoesces 


Macro Library name Macros defined 


-$255$DUA28: CRMS.OBJJRMS.MLB; 1 11 
~$255$DUA28:CSYS.OBJJLIB.MLB; 1 3 

$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 19 


1153 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM1ISTMFMT/OBJ=OBJ$:RMISTMFMT MSRC$:RMISTMFMT/UPDATE=(ENHS:RM1ISTMFMT) +EXECML$/LIB+LIB$:RMS/LIB 


04-00 Page ' 


MT.MAR; 1 


NOWRT NOVEC BYTE 
NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


RM 
vo 
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